00010 



XLIST 
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000000 
000001 



000002 
000003 
000004 
000005 
000006 
000007 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000020 
000021 
000022 
000023 
000024 
000025 



200100 000000 
202100 000064' 



515240 
336025 
253240 
327240 
402025 
200105 
200205 
350000 
301200 
201200 
617104 
254000 
700600 
554044 
306042 
254000 
700600 
312205 
344200 
254000 



777774 

000060' 

000003' 

000026' 

000060 ' 

000065' 

000071 ' 

000004 

000000 

000001 

000000 

000023' 

000000 

000014' 

204000 

000041' 

000000 

000071' 

000012' 

000004' 



00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 



SCHEDULING ALGORITHM 
CALL: 

PUSHJ PDP. NXTJOB 

EXIT 



.RETURN HIGHEST PRIORITY USER IN AC ITE 



;NXTJOB ASSUMES NO ACS SET EXCEPT POP AND THAT IS MaY USE 

;ANY OF THE OTHER ACS 

;EXECUTI0N requires roughly 37 cycles FOR NORMAL CASE 

INTERNAL NXTJOB, QUANTS 

EXTERNAL lOCOMP. JOBN, JBTSTS , JOB 

EXTERNAL MTAVAL, DCAVAL , DTAVAL, SCNOFF, SCNON 



T=TAC1 
C=DEVDAT 
P = DAT 

NXTJOB: 



;keep 10 



NXT0 
NXTl 



NXT2 



;temporary ac 



MOVE T, lOCOMP 
MOVEM T, IOAVAL 



NO. OF COMPLETED 10 JOBS 
MAKE SLOW 10 LOOK LIKE FAST 



10 



DEVICES 
HRLZI 
SKIPN 
AOBJN 
JUMPG 
SETZM 
MOVE T 
MOVE I 
AOS IT 
CAIL I 
MOVE! 



NXT3: 



TSNN 
JRST 
CONO 
HLR2 
CAIN 
JRST 
CONO 
CAME 
AOJA 
JRST 



BUSY 
P, -NUM 
«^AVALTB(P) 
P. NXT0 
P. NXT4 
i?AVALTB(P) 
,WAITB(P) 
TEM, JOBP(P) 
EM 

TEM. JOBN 
ITEM,1 

, JBTSTS(ITEM) 
XT3 ;N0, KEEP 
I. SCNOFF 
AC, JBTSTS( ITEM 
AC,RUNABLE(T) 
XT7 

I .SCNON 
TEM, JOBP(P) 
TEM, NXT2 
XTl 



;N0. of 10 DEVICE CATEGORIES TO CHECK 
;N0N-ZER0 if IO just become AVAILABLE 

;finished yet 

;10 device avail. acknowledge fact 

;GET APPROPRIATE JOB STATUS BIT 

;SEARCH FOR WAITING JOB 

{LOOK AT EVERYONE ELSE FIRST 

;M0DUL0 JOBN 

JSKIP NULL JOB 

.'IS WAIT BIT SET FOR THIS JOB? 

LOOKING 

;yes, turn scanner CHAN. 0FF(C0NTR0L C) 

) ; is job runable? 

;yes, clear bit, set run time, return 
;no. turn scanner chan. on, keep lookin 
;have all users been looked at 
;no, keep looking 
;yes, should not happen 
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000026 
000027 

000030 
000031 

000032 

000033 
000034 
000035 
000036 
000037 
000040 

000041 
000042 
000043 
000044 
000045 
000046 
000047 

000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 



201300 000012' 

334200 000000 

350000 000004 

301200 000026 

201200 000001 

554104 000017 

306100 204000 

254000 000050 

367300 000030 

403200 000002 

344100 000054 



202205 
620042 
506044 
602100 
370000 
700600 
254000 

550104 
602100 
263140 
200105 
542104 
316200 
326200 
263140 



000071 
000000 
000033 
400000 
000000 
000022 
000053 

000043 
777777 
000000 
000075 
000050 
000027 
000036 
000000 



00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 



;no jobs waiting to use io devices 
;has current job used its quantum 



NXT4: 
NXT6: 

NXT5: 
NXT5A: 

NXT7: 



NXT9: 



NXT10: 
NXT8: 



MOVEI CJOBN 
SKIPA ITEM, JOB 

AOS ITEM 

CAIL ITEM. JORN 

MOVEI ITEM, 1 

HLRZ T, JBTSTS(ITEM) 
CAIN T, RUNABLE 
JRST NXT9 
SOJG C, NXT6 
SETZB ITEM,T 
AOJA T,NXT8 



JGET ready FOR POSSIBLE LOOP 
{CURRENTLY RUNNING JOB 

;L00K AT NEXT JOB 
.'MODULO JOBN 
;SKIP NULL JOB 



; is this job runable 

jyes, return with item set 
;no, looked at all jobs yet? 
;yes, indicate null job to run 
;set to run for one clock tick 



MOVEM ITEM, JOBP(P) ;SAVE THIS JOB NO. FOR NEXT TIME 

TRZ TAC.(T) {CLEAR WAIT BIT 

HRLM TACJBTSTSdTEM) MN JOB STATUS WORD 

TRNE T.IOWS ;IS WAIT BIT lOWS? 

SOS lOCOMP ;YES, SUBTRACT REQUEST COUNT 

CONO PI.SCNON ;TURN SCANNER CHANNEL BACK ON 

JRST NXT10 ;aN0 go SET RUNNING TIME 



HRRZ 
TRNE 
POPJ 
MOVE 
HRRM 
CAMN 
JUMPN 



T,J8TSTS{ITEM) ;HaS TIME GONE TO ZERO FOR THIS JOB? 
T,-l 

POP, ;no 

T, QUANTS(P) ;SET 
T, JBTSTS(ITEM) 

ITEM. JOR ;IS THIS SAME AS OLD JOB? 

ITEM, NXT5A ;AND NOT NULL JOB 



QUANTUM RUNNING TIME FOR THIS QUEU 



POPJ POP, 
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000060 000000 000000 

000061 000000 000000 

000062 000000 000000 

000063 000000 000064' 



000064 000000 000000 



000065 000000 010000 

000066 000000 020000 

000067 000000 040000 
000070 000000 400000 



000071 000000 000001 

000072 000000 000001 

000073 000000 000001 

000074 000000 000001 



000075 000000 000004 

000076 000000 000004 

000077 000000 000004 

000100 000000 000006 

000101 000000 000017 



THFRE ARF MO ERRORS 
PROGRAM BREAK IS 000102 



00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 



01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
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;FLAGS set N0N-2ER0 WHEN 10 DEVICES BECOME AVAILABLE 
AVALTB: 



EXP MTAVAL 
EXP DCAVAL 
EXP DTAVAL 
EXP lOAVAL 
NUM=. -AVALTB 



IOAVAL: 







;MAG TAPE 

;data control 

;dectape 

;all other devices 



;flag = NO. of 10 completed jobs 



;bit in status word meaning job waiting to use device 

waits: EXP MTW 

EXP DCW 

EXP DTW 

EXP lows 

;LAST job SCHEDULED FOR DEVICE 



REPEAT NUM, 
EXP 1 



JOBP: 

< 

> 

EXP 1 

EXP 1 
EXP 1 
EXP 1 



;quantum times for each queue 



quants: 



EXP 4 
EXP 4 
EXP 4 
EXP 6 
EXP QUANTl 



jmagtape queue 
;data control queue 

JDECTAPE queue 
MOWAIT SATISFIED 



;STRAIGHT 



QUEUE 
COMPUTATION QUEUE 



XP QUANTl, tD15; 
END, 



STRAIGHT COMPUTATION QUEUE 
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A 

ACl 

AC2 

AC3 

AL 

ASSCON 

ASSPRG 

AVALTB 

R 

RUEPNT 

RUFWRD 

C 

CLOSR 

CLSIN 

CLSOUT 



DAT 

nCAVAL 

OCL 

DCW 

DDI 

DDO 

DDTMEM 

DOTSYM 

DEN 

DEVADR 

DEVBUF 

DEVCHR 

DEVCTR 

DEVDAT 

DEVIAD 

DEVIOS 

DEVLOG 

DEVMOD 

DEVNAM 

DEVOAD 

DEVPTR 

DEVSER 

DGE 

DIN 

DLK 

DOU 

DR 

DRL 

DSI 

DSD 

DTAVAL 

DTW 

DVAVAL 

OVCDR 

OVDIR 

DVDIRI 

DVIN 

DVLPT 

DVMTA 



000000 


INT 


000015 


INT 


000016 


INT 


000017 


INT 


000001 


INT 


400000 


INT 


200000 


INT 


000060' 




000014 


INT 


000012 


INT 


000013 


INT 


000006 




002000 


INT 


000002 


INT 


000001 


INT 


000017 


INT 


000005 


INT 


000061' 


EXT 


000001 


INT 


020000 


INT 


000007 


INT 


000006 


INT 


000037 


INT 


000036 


INT 


000004 


INT 


000007 


INT 


000006 


INT 


000001 


INT 


000011 


INT 


000006 


INT 


000007 


INT 


000002 


INT 


000005 


INT 


000004 


INT 


000000 


INT 


000010 


INT 


000010 


INT 


000003 


INT 


000012 


INT 


000003 


INT 


000005 


INT 


000002 


INT 


000016 


INT 


000000 


INT 


000011 


INT 


000010 


INT 


000062' 


EXT 


040000 


INT 


000040 


INT 


100000 


INT 


000004 


INT 


400000 


INT 


000002 


INT 


040000 


INT 


000020 


INT 
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nVOUT 

nVTTY 

ENTR8 

I 

IB 

IBUEB 

INITB 

INPB 

10 

lOACT 

lOAVAL 

lOBEG 

lOBKTL 

lOCOMP 

lOCON 

lOnEND 

lOnERR 

ionise 

lODONE 

lOnTER 

lOEND 

lOFST 

lOlMPM 

lONRCK 

lORDEL 

lORET 

lOS 

lOSTRT 

lOUSE 

lOW 

lOWC 

lOWS 

ITEM 

JBEADR 

JBECTR 

JBEPTR 

JBTSTS 

JBUE 

JDAT 

JERR 

JIOW 

JNA 

JOB 

JOBN 

JOBP 

LOOKR 

MTAVAL 

MTW 

NUM 

NXT0 

NXTl 

NXT10 

NXT2 

NXT3 

NXT4 



000001 

000010 

020000 

000010 

000013 

200000 

400000 

010000 

000020 

010000 

000064' 

000002 

040000 

000045' 

000040 

020000 

200000 

400000 

400000 

100000 

000040 

000004 

400000 

000100 

000100 

000020 

000000 

000010 

400000 

000001 

000020 

400000 

000004 

000000 

000002 

000001 

000054' 

000005 

000011 

002000 

100000 

004000 

000055' 

000031' 

000071' 

040000 

000060' 

010000 

000004 

000003' 

000004 ' 

000053' 

000012' 

000023' 

000026' 



INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 

INT 
INT 
EXT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
EXT 
INT 
INT 
INT 
INT 
INT 
EXT 
EXT 

INT 
EXT 
INT 



CLKCSS - 


SCHFOULING ALGORITHM 


SYMBOL 


TABLF 




NXT5 


000033' 




NXT5A 


000036* 




NXT6 


000030' 




NXT7 


000041' 




NXT8 


000054' 




NXT9 


000050' 




NXTJOB 


000000' 


INT 


OBUFB 


100000 


INT 


OUTPP 


004000 


INT 


P 


000005 




PDF 


000003 


INT 


PICHN 


000100 


INT 


PROG 


000007 


INT 


QUANTl 


000017 


INT 


QUANTS 


000075 ' 


INT 


RUN 


?00000 


INT 


RUMABL 


204000 


INT 


SCNOFF 


000016' 


FXT 


SCNON 


000046' 


FXT 


T 


000002 




TAG 


000001 


INT 


TACl 


000002 


INT 


TEM 


000010 


INT 


TTYATC 


020000 


INT 


TTYUSE 


010000 


INT 


USRMOD 


010000 


INT 


UUO 


000014 


INT 


WAITB 


000065' 
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ENn OF ASSEMBLY 



